home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 December / Chip_2001-12_cd1.bin / zkuste / tuning / download / xteq / setup.exe / {app} / plugins / XQ Show on Desktop 3.xpl < prev    next >
Text File  |  2001-02-07  |  2KB  |  72 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="6"
  3. "COUNT"="2"
  4. "UIPATH"="Appearance\Desktop\Icons\Visible Icons"
  5. "NAME"="Internet Explorer Other Icons"
  6. "LANGUAGE"="VBScript"
  7. "VERSION"="2.50"
  8. "TEXT 1"="Internet Explorer History" 
  9. "TEXT 2"="Temporary Internet Files (Disk Cache)"
  10. "DESCRIPTION 1"="To show an item on the desktop, activate it. To hide it, deactivate it."
  11. "DESCRIPTION 2"="In order to activate the changes, it may be necessary to refresh the Desktop or to press the F5 Key."
  12. "AUTHOR"="Xteq Systems"
  13. "CONTACTURL"="http://www.xteq.com"
  14. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  15. "COMMENT 1"=" "
  16. "COMMENT 2"="Thanks to Siegfried Burgstedt for his fix!"
  17.  
  18.  
  19.  
  20.  
  21. '******************************************************************
  22. '***                MASTER TEMPLATE (1 of X)                   ****
  23. '******************************************************************
  24. sVals=Array("{FF393560-C2A7-11CF-BFF4-444553540000}","{7BD29E00-76C1-11CF-9DD0-00A0C9034933}")
  25. '******************************************************************
  26. '*** Keep an eye on the order (must be the same as "TEXT x") ! ****
  27. '******************************************************************
  28. sPath="HKLM\Software\Microsoft\Windows\CurrentVersion\Explorer\Desktop\NameSpace\"
  29.  
  30.  
  31.  
  32. Sub Plugin_Initialize 
  33.  for i=0 to GetUIElementsCount-1
  34.      s=sPath & sVals(i)
  35.  
  36.      if RegPathExists(s) then SetUIElement i+1,true
  37.  next 
  38. End Sub
  39.  
  40. Sub Plugin_CheckData(ElementIndex)
  41. End Sub
  42.  
  43. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  44.  for i=0 to GetUIElementsCount-1
  45.      b=GetUIElement(i+1)
  46.      s=sPath & sVals(i)
  47.  
  48.      if b=true then
  49.         Call RegWriteValue(s & "\@","",1)
  50.      else
  51.  
  52.         if RegPathExists(s) then
  53.            if RegValueExists(s & "\Removal Message") then
  54.               Call RegDeleteValue(s & "\Removal Message")
  55.            end if
  56.            
  57.            'finally delete the path 
  58.            Call RegDeletePath(s)
  59.        end if
  60.      end if
  61.  next 
  62.  
  63.  Call IndicateSettingChange()
  64. End Sub
  65.  
  66.  
  67. Sub Plugin_Terminate 
  68. End Sub
  69.  
  70.  
  71.  
  72.